home *** CD-ROM | disk | FTP | other *** search
- -----------------------------------------------
- - eXtreme Movie Manager -
- - MagicScript Technology -
- - 2002 Alessio "AleTsg" Viti -
- -----------------------------------------------
- - Web : WWW.ADULTDVD.COM -
- - Autor : Fotis -
- - Date : 27/05/2003 -
- - Comments : Import All infor and only the -
- - First Picture -
- -----------------------------------------------
-
- #MADEBY#=Fotis
- #DATEBUILD#=27/5/2003
- #WEBSITE#=ADULTDVD.COM (English)
- #NOTE#=Imports all informations available and only the first picture
- #GENERATION#=1
-
-
- #WEBQUERY#=http://www.mallcom.com/superstore-cgi/hazel.cgi?CLIENT=85471138&SEARCH_MAXHITS=500&SEARCH_KEY_IMAGE3=dvd&SEARCH_KEY_NAME=#MOVIE#&SEARCH_LOGIC=AND&SUBMIT_ACTION_SEARCH=Search%21&SEARCH_COMP=CONTAINS&SEARCH_KEY_DESC=&SEARCH_KEY_STARRING=
-
- #RIGHTPAGEFOUND#
- #STARTREADWEB#
- #FINDLINE#=<TITLE></TITLE>#01# #ONERROR=*OK*
- #PUT#=1#02#
- #CONDITIONRIGHTPAGE# #01#==#02#
- #ENDRIGHTPAGEFOUND#
-
-
- #CREATEMOVIELIST#
- #STARTREADWEB#
- #FINDLINE#=No matches#01# #ONERROR#=*OK*
- #PUT#=1#02#
- #IF# #01#==#02#
- #WRITETITLELIST#=Movie not found
- #GOTO#=ENDMOVIELIST
- #ENDIF#
-
- #WRITETITLELIST#=Movies Found
- #WRITETITLELIST#=----------------------------------------
- #WRITETITLELIST#=
-
- #STARTREADWEB#
-
- #PUT#=0#01#
- #PUT#=0#02#
- #REPEAT#
- #FINDLINE#=<a href="#03# #ONERROR#=*OK*
- #IF# #03#==#01#
- #GOTO#=ENDMOVIELIST
- #ENDIF#
-
- #COMPUTECURSOR#=+8
- #PUTCURSOR#=#03#
- #COMPUTECURSOR#=+1
- #FIND#="#04# #ONERROR#=*STOP*
- #TAKEWORD#=#10#,#03#,#04#
-
- #FIND#=>#05# #ONERROR#=*STOP*
- #PUTCURSOR#=#06#
- #FIND#=<#07# #ONERROR#=*STOP*
- #TAKEWORD#=#11#,#06#,#07#
-
- #PUT#=checkout#08#
- #IF# #11#==#08#
- #GOTO#=ENDMOVIELIST
- #ENDIF#
-
- #WRITETITLELIST#=#10# --->
- #WRITETITLELIST#= \\-_-_-_-_-_> #11#
- #WHILE# #01#==#02#
- :ENDMOVIELIST
- #ENDCREATEMOVIELIST#
-
- #MOVIETITLE#
- #STARTREADWEB#
- #FINDLINE#=NUMBER: #01# #ONERROR#=*STOP*
- #FINDLINE#=<FONT#01# #ONERROR#=*STOP*
- #COMPUTECURSOR#=+57
- #PUTCURSOR#=#02#
- #FIND#=</FONT>#03# #ONERROR#=*STOP*
- #TAKEWORD#=#04#,#02#,#03#
- #TITLE#=#04#
- #ENDMOVIETITLE#
-
- #PLOT#
- #STARTREADWEB#
- #FINDLINE#=DESCRIPTION#01# #ONERROR#=*STOP*
- #FINDLINE#=<FONT#01# #ONERROR#=*STOP*
- #COMPUTECURSOR#=+57
- #PUTCURSOR#=#02#
- #FIND#=</FONT>#01# #ONERROR#=*STOP*
- #PUTCURSOR#=#03#
- #TAKEWORD#=#04#,#02#,#03#
- #TAKEPLOT#=#04#
- #ENDPLOT#
-
- #ACTORS#
- #STARTREADWEB#
- #FINDLINE#=STARRING#01# #ONERROR#=*STOP*
- #FINDLINE#=<FONT#01# #ONERROR#=*STOP*
- #COMPUTECURSOR#=+57
- #PUT#=0#20#
- #PUT#=0#01#
- #PUT#=0#02#
- #REPEAT#
- #PUTCURSOR#=#03#
- #PUT#=7#04#
- #TAKEWORDLEN#=#05#,#03#,#04#
-
- #PUT#=</FONT>#06#
- #IF# #05#==#06#
- #GOTO#=ENDACTORS
- #ENDIF#
-
- #IF# #01#<>#20#
- #COMPUTECURSOR#=+1
- #ENDIF#
- #PUTCURSOR#=#03#
- #TAKEWORDLEN#=#05#,#03#,#04#
- #PUT#=<A href#06#
- #IF# #05#==#06#
- #COMPUTECURSOR#=+2
- #FIND#=>#07# #ONERROR#=*STOP*
- #PUTCURSOR#=#08#
- #FIND#=</a>#09# #ONERROR#=*STOP*
- #TAKEWORD#=#10#,#08#,#09#
- #TAKEACTOR#=#10#
- #FIND#=;#11# #ONERROR#=*STOP*
- #GOTO#=NEXTACTOR
- #ENDIF#
-
- #IF# #01#<>#20#
- #COMPUTECURSOR#=+1
- #ENDIF#
- #PUTCURSOR#=#03#
- #FIND#=;#07# #ONERROR#=*STOP*
- #TAKEWORD#=#08#,#03#,#07#
- #TAKEACTOR#=#08#
- :NEXTACTOR
- #PUT#=1#20#
- #WHILE# #01#==#02#
- :ENDACTORS
- #ENDACTORS#
-
- #RUNTIME#
- #STARTREADWEB#
- #FINDLINE#=RUNTIME#01# #ONERROR#=*STOP*
- #FINDLINE#=<FONT#01# #ONERROR#=*STOP*
- #COMPUTECURSOR#=+57
- #PUTCURSOR#=#02#
- #FIND#=</FONT>#03# #ONERROR#=*STOP*
- #TAKEWORD#=#04#,#02#,#03#
- #TAKERUNTIME#=#04#
- #ENDRUNTIME#
-
- #STUDIO#
- #STARTREADWEB#
- #FINDLINE#=FILMMAKER#01# #ONERROR#=*STOP*
- #FINDLINE#=<FONT#01# #ONERROR#=*STOP*
- #COMPUTECURSOR#=+57
- #PUTCURSOR#=#02#
- #FIND#=</FONT>#03# #ONERROR#=*STOP*
- #TAKEWORD#=#04#,#02#,#03#
- #TAKESTUDIO#=#04#
- #ENDSTUDIO#
-
- #POSTER#
- #STARTREADWEB#
- #FINDLINE#=<IMG SRC='http://www.mallcom.com/store/fr#01# #ONERROR#=*STOP*
- #COMPUTECURSOR#=+9
- #PUTCURSOR#=#02#
- #COMPUTECURSOR#=+1
- #FIND#='#03# #ONERROR#=*STOP*
- #TAKEWORD#=#04#,#02#,#03#
- #TAKEPOSTER#=#04#
- #ENDPOSTER#
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-